
; make-counter
(define (make-counter)
	(define counter 0)
	(lambda ()
		(set! counter (+ counter 1))
		counter))


